home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / CD ProgramReader.cpt / CD Programs Reader / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-10-15  |  2KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3055</cardID>
  8.     <listID>3807</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>256</width>
  14.         <height>256</height>
  15.     </cardSize>
  16.     <script>on openStackclick at loc of cd fld CDRemoteProgramsput "Hello" && GetStr(-16096) & comma into cd fld theTextput "    Click here to create a personalized music compact disc" ¬¨&& "controller stack.  Information on your CD collection will be" ¬¨&& "read from the" && quote & "CD Remote Programs" & quote && "file" ¬¨&& "in your System Folder (this file is created and maintained by" ¬¨&& "the" && quote & "CD Remote" & quote & " desk accessory).  A new" ¬¨&& "HyperCard stack which can play your music CDs will be created." ¬¨into line 3 of cd fld theTextput return & "       " into iput return & i & "Chris Clauss" after cd fld theTextput return & i & "America Online:  Clauss" after cd fld theTextput i & "AppleLink:          Clauss1" after cd fld theTextput i & "CompuServe:      70357,674" after cd fld theTextput i & "Internet:  Clauss1@AppleLink.Apple.Com" after cd fld theTextwait 3 secondspass openStackend openStackon closeStackput return & "        Goodbye," && GetStr(-16096) & "." into ¬¨cd fld theTextwait 1 secondrepeat with i = 1 to number of cd fldsput empty into cd fld iend repeatpass closeStackend closeStack-- Script of new stack's bg fld trackTitles is below.-- The restOfScript() routine will cut this script here ***on mouseUp playNow end mouseUp on playNow cdOpen cdPlayTrack 5 end playNow</script>
  17.     <background id="2785" file="background_2785.xml" name="" />
  18.     <card id="3055" file="card_3055.xml" marked="false" name="" owner="2785" />
  19. </stack>
  20.